home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / net / route.ph < prev   
Encoding:
Text File  |  1991-08-12  |  764 b   |  34 lines
  1. if (!defined &_ROUTE) {
  2.     eval 'sub _ROUTE {1;}';
  3.     eval 'sub RTF_UP {0x1;}';
  4.     eval 'sub RTF_GATEWAY {0x2;}';
  5.     eval 'sub RTF_HOST {0x4;}';
  6.     eval 'sub RTF_DYNAMIC {0x10;}';
  7.     eval 'sub RTF_MODIFIED {0x20;}';
  8.     if (defined &KERNEL) {
  9.     eval 'sub RTFREE {
  10.         local($rt) = @_;
  11.         eval " &if (($rt)-> &rt_refcnt == 1)  &rtfree($rt);  &else ($rt)-> &rt_refcnt--;";
  12.     }';
  13.     if (defined &GATEWAY) {
  14.         eval 'sub RTHASHSIZ {64;}';
  15.     }
  16.     else {
  17.         eval 'sub RTHASHSIZ {8;}';
  18.     }
  19.     if (( &RTHASHSIZ & ( &RTHASHSIZ - 1)) == 0) {
  20.         eval 'sub RTHASHMOD {
  21.             local($h) = @_;
  22.             eval "(($h) & ( &RTHASHSIZ - 1))";
  23.         }';
  24.     }
  25.     else {
  26.         eval 'sub RTHASHMOD {
  27.             local($h) = @_;
  28.             eval "(($h) %  &RTHASHSIZ)";
  29.         }';
  30.     }
  31.     }
  32. }
  33. 1;
  34.